Joo 
aoa 
Jju4 
au4 
Joo 
aod4 
au4 
oau4 
Jju4 
saou4 
au4 
au 
aou4 
Jjouu4 
ays 


ee) 
ee eee 
ee ee 


———_—_ — 


K 16 
**F ILE**1D**NMLSHOPRA 
NN NN MM MM LL SSSSSSSS HH HH 000000 PPPPPPPP RRRRRRRR MM MM 
NN NN MM MM LL SSSSSSSS_ HH HH 000000 PPPPPPPP RRRRRRRR MM MM 
NN NN MMMM MMMM LL HH HH 00 0O PP PP RR RR MMMM MMMM 
NN NN MMMM MMMM LL SS HH HH 00 00 PP PP RR RR MMMM MMMM 
NNNN NN MM MM MM LL SS HH HH 00 00 PP PP RR RR MM MM MM 
NNNN NN MM MM MM OLL HH HH 00 00 PP PP RR RR MM MM MM 
NN NN NN MA MM LL SSSSSS HHHHHHHHHH §=00 00 PPPPPPPP RRRRRRRR MM MM 
NN NN NN MM MM LL SSSSSS HHHHHHHHHH 800 00 PPPPPPPP RRRRRRRR MM MM 
NN NNNN MM MM LL SS HH HH 00 00 PP RR RR MM MM 
NN NNNN MM MM LL SS HH HH 00 00 PP RR RR MM MM 
NN NN MM MM LL SS HH HH 00 00 PP RR RR MM MM eeee 
NN NN MM MM LL SS HH HH 00 00 PP RR RR MM MM cece 
NN NN MM MM LLLLLLLLLL SSSSSSSS HH HH 000000 PP RR KR MM MM cece 
NN NN MM MM LLLLLLLLLL SSSSSSSS HH HH 009000 PP RR RR MM MM cece 
LL III] SSSSSSSS 
LL HII SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL Il Ss 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 


Be Se Se Oe Se Be Be Se Be Se Be Se Ge Se Be Se Se Ge Fe Se Se Se FHF SH Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Oe Se Oe Se Se ee 


WMINININININPININPINININS 2 2 2 PO OO oe 


WN "SO DONO USWN "OO OONOAUS WAR) (OC ODNOUS WN 


w 


5 


SSssooooeeooseses 


WN UNRIRONMINONMONIPONOTUND 2 2 2 2 SS SS 


WN "SO DONA USWN —“OOONOULS WN —O0O@ 


aus 


SSssososooosesS 


WAWI 


Seerererere 


NOUEWN OC OONOUE WN OOOO 


SsosoessS 
PVA 


ee ee SS 


NML special volatile parameter handling routine 1b-50 zon- 138% 99: 33: 36 AX-11 Bliss-32 V4.0-74 


-Sep-19 NML.SRCJNMLSHOPRM.B32; 


ZTITL 4 oper tot volatile parameter handling routines’ 
NML SSHOP 


MODUL 
LANGUAGE (BLISS3 
ADDRESSING _MODE {NOME XTERNAL<GENERAL) 
DRESSING-MO MODE | (EXTERNAL=GENERAL), 
IDENT = 'v04-000' 


BEGIN 


PSPSPS LILICI SITET ET ET rrr rr rire rr erect ii c Tire i iii iii i titi tii iiiititiit 
'@ * 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
ie DIGITAL EQUIPMENT eGORPORATION, © MAYNARD, MASSACHUSETTS. * 
is ALL RIGHTS RESERV * 
® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. » 
& 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
& 
* 
® 
® 
w 
® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RRR AEAEAAARAAAAAAARAARAAARAEAERAAAAAAAT AAA AAA AAAAAARARAREAAARERAAAAEREE 
' 


oe 
FACILITY: DECnet-VAX V2.0 Network Management Listener 


! ABSTRACT: 


This module contains routines to process volatile data base 
information from the NETACP QI10 buffer. 


i ENVIRONMENT: VAX/VMS Operating System 
i AUTHOR: Distributed Systems Software Engineering 
i CREATION DATE: 23-JAN-1980 


i 
] 
1 
a) 
' 
4 
‘ 
‘ 
3 
‘ 
' 
i MODIFIED BY: 
t 
‘ 
' 
1 
' 
4 
' 
‘ 


v03-009 MKP0011 Kathy Perko 9-April-1984 
If returning 9 oote address to a Phase III NCP, clear the 
area number if it’s in the exeuctor's area. if it’s not in 
the executor's at return it as is = that's the best 


can do. 
v03-008 MKP0010 Kathy Perko 18-0c t-1983 
Fix previous bug correctly. 


$ 


5 


35 
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ssssesssess 


Sssssss 
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v03-007 


v03-006 


v03-005 MKP0007 


v03-004 


v03-003 


v03-002 


v03-001 


v02-002 


v02-001 


MKP0009 Kathy Perko 27-Sept-1983 
Fix NMLSSHONODEID so it skips over the node name if no 
address is returned. 


MKPO008 coche Perko Lime ho 
Fix NMLSSHOEXEPARAM to call NMLSSHONODEID for EXECUTOR node 
ALIAS parameter. 


Pp Kathy Perko 29-July-1983 
Add EXECUTOR node parameter, ALIAS, and clean up routines 
that SHOW node ids. 


MKPO006 Kathy Perko 29-Nov-1982 
If NCP is using NICE V3.0.0, clear the area number out of 
any node numbers returned. 


MKPOO00S Kathy Perko 24-Nov-1982 
If NETACP doesn't return a state for a node, don't 
return one to NCP. 


MKP0004 Kathy Perko 25-June-1982 

xecutor and X2n Server Destination subaddresses are now 
both returned by the ACP as longwords. Fix up the show 
routines accordingly. 


MKP0003 Kathy Perko 1-April-1982 
Make changes for X-25 Protocol and Server Modules. 
Aiso combine some routines to make NMLSHR smaller. 


MKP0002 Keshy Perko 3-Jan-1982 

Delete routine NMLSSHOLINKS. It has been moved to the 
NMLV2C module because it's only used for formatting 
SHOW LINKS commands for V2 nodes. 


MKPO001 Kathy Perko 24=July-1981 
Delete NPL call tc map YMS Line to DNA Line name. 


Page 


oy» TT OF Soe eee sr 


1 
—NALSSHOPRA NAL special volatile parameter handling routine 1b-se -1984 00:33:3 AX-11 Bliss-32 V4.0-742 P 
| Declarations 3 or ae 7 99: 0:2 NML. SREINAL SHOPRN- B30 as 23 


ZSBITL ‘Declarations’ 


; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
NMLSSHOPARAM 
NALSSHONMLVER, 
NMLSSHOREMSTA. 
NMLSSHOVERSION, 


NML$SHONODE 
NMLSSHOSERVPASS, 
NMLS$SKIPLON 
NMI SSKIPSTRING, 
NAL SSHOEXEPARAM, 


INCLUDE FILES: 


LIBRARY 'LIBS:NMLLIB.L32°; 
LIBRARY ‘SHRLIBS:NMALIBRY.L32'; 
LIBRARY ‘SHRLIB$:NET.L32'; 
LIBRARY ‘SYSSLIBRARY:STARLET.132'; 
{ 

' 

‘ 


i OWN STORAGE: 


LA AAI AIO ROO RUNONUPURNUY 4-3 2 2 
OEWN OOOO EWN A OODNOAUE WN OLR 


! 

: Phen buffer and descriptor for use in handling volatile data base 
! data. 
! 


OWN 
NML$T_PRMBUFFER : VECTOR (256, BYTE]; 
NML$Q_PRMDSC = UPLIT (256, NMLST_PRMBUFFER) : DESCRIPTOR; 


EXTERNAL REFERENCES: 


SNML_EXTDEF ; 


EXTERNAL 
nmi $gb_ncp_version, 
nml$gw_vol_exec_addr: BBLOCK (2); 


EXTERNAL ROUTINE 
NMLSADDMSGCOU, 


nn nn ee 
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NML$NETQ 
NMLSERROR_1; 


a ce en ee a See Oe 
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NML.SRCINMLSHOPRM.B3 


GLOBAL ROUTINE NMLSSHOPARAM (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 
+ 


'o¢ 

FUNCTIONAL DESCRIPTION: 

i This routine is used to format nyte. word, longword, and string NICE 
g 


parameters for SHOW commands. It gets a (ongword or string parameter 
from the Q10 buffer, and adds it to the NICE response message. 
i FORMAL PARAMETERS: 
SEM_LIST Parameter semantic table entry address. 
BUF BSC Output message buffer descriptor address. 
Q10 buffer descriptor address. 
DATPTR Current pointer into Q10 data buffer. 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i 

4 

! 

! 

' 

' 

! 

: 

! MSGSIZE Address of current output message size. 
DATDSC 

! 

1 

' 

1 

Always returns success (NML$_STS_SUC). 
! 


P 
SEM_LIST : REF BBLOCK; 


OCAL 
DATA_TYPE: BBLOCK [13, ! NICE parameter data type 
NICE_LEN ! Length of parameter in NICE response message. 
CHECR_STRING; 


i Using the NICE data type field in the Parameter Semantic Table (PST), 
! determine how long the parameter will be in the NICE response message. 


' 

‘ 

1 

i 

CHECK_STRING = 0; 

DATA_TYPE = .SEM_LIST CPSTSB_DATATYPE); 
; 

i 


i Check to see if the parameter is coded. 
if DATA. TYPE CNMASV_PTY_COD] THEN 
IF .DATA_TYPE CNMASV_PTY_CMU] THEN 
gWUSERROR.! (NMASC_STS_MPR) ! Signal NML error. 
i The parameter is a coded single field. Get the parameter's Length 
} from the low order 6 bits. 
NICE_LEN = .DATA_TYPE CNMASV_PTY_CLE); 
ELSE 
! The parameter is not coded. 


Pa 5 
ge ; 


—_—__———__-------—_--  — ———_— ss. OO 


; ing routine 
-IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


CO000 P.AAA: .LONG 256 
00004 -ADDRESS NMLS$T_PRMBUFFER : 


-PSECT SOWNS,NOEXE,2 
| 


00000 NML$T_PRMBUFFER: 
~-BLKB 256 


1 ‘ 

| NALSSHOPRM NML special volatile parameter handling routine 1b-5e -1984 00:33: AX-11 Bliss-32 V4.0-74 Page 6 NMI 

Yoe-000 Declarations : . 1 733071382 93:35:38 NML.SRCIJNMLSHOPRM.B32; 7 (3). vO! 

P 1 P 
: 21 1 : 
; 1 1 BEGIN ‘ 
; 0 \8 IF .DATA_TYPE pone? OR ' NICE parameter type = string ‘ 
; 1 8 i nue NMASV_PTY_NLEJ EQL 0 ! NICE parameter type = binary image ‘ 
: 558 Q221 4 BEGIN | 
5 4 8 § 4 NICE_LEN = .(..DATPTR) <0,16>; ‘ 
, 5 4 -DATPTR = ..DATPTR + 2; > 
3 8 0224 & CHECK_STRING = 1; ; 
; 0225 4 END : 
; 8 0226 LSE : 
3 9 8 7 NICE_LEN = .DATA_TYPE CNMASV_PTY_NLEJ; ‘ 
: 531 0559 5: SNP: | 
3; ¢ § 0 $5 : If the ACP_has a value for the parameter, add it to the NICE response : 
; go o¢3) ! message. The ACP does not have a value for the parameter if: : 
3; @ 0 * a} - It's a string, and the length is zero. : 
; 235 023 § ! - It's a longword, and the value is -1. > 
: $38 ose § The ACP returns only longwords or strings. ‘ 
: 238 0236 2 iF (.CHECK_STRING AND .NICE_LEN NEQ 0) OR F 
; 239 0237 § ((NOT .CHECK_STRING) AND” (...DATPTR NEQ -1)) THEN ; 
; 240 0238 NMLSADDMSGPRM ( -BUFDSC, : 
: 261 0239 2 »MSGSIZE : 
i ghe 0240 2 -SEM_LIST CPST$W_DATAID], : 
: 2463 0241 2 -SEM_LIST CPSTSB_DATATYPE), ° 
: 246 Bge6 : NICE_LEN, ‘ 
: 245 024 .DATPTR); . 
: 246 0244 2 : 
: 247 0245 2! : 
: 248 0246 2! Increment the pointer to the QI10 P4 buffer to the next parameter . 
: 249 0247 § ! returned by the ACP. ‘ 
; 250 0248 ! : 
3 2) 0249 2 IF .CHECK_STRING THEN Ps 
; 252 0250 2 -DATPTR = ..DATPTR + -NICE_LEN : 
; 253 0251 2 ELSE : 
5; 2 8S 26 2 -DATPTR = ..DATPTR + 4; : 
s 229 O62 2 : 
; 256 0254 2 RETURN NML$_STS_SUC : 
, aT 0255 2 : 
; 258 0256 1 END; ! End of NMLSSHOPARAM : 

TITLE NMLSSHOPRM NML special volatile parameter handl | : 

| 


eee 


pos + 


| 
| NALSSHOPRM 
V04 


-000 Declarations 14-Sep-1984 


NML$Q_PRMDSC= 


| 
SEXTRN 
| 


-EXTRN 
-PSECT 


: 


53 
52 
oc 52 
7E 

000000006 00 
54 52 06 
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NML special volatile parameter handling routine 16- stp-19 4 2 90: 3: 36 


AX-11 Bi ieee V4.0-742 
NML.SRCINMLSHOPRM.B32; 1 


NMLS$GW_ACP 
NMLSGL ~{OGRASK. 


NML$GQ_ENTSTRDSC 
NML$AB_QIOBUFFER 
NML$ 


LEN 
LSAB~ CBTABLE NML$AB_MSGBLOCK 
NMLSAB™ ENTITY_ID 
NML$AB~QUALIFTER_ID 
NML$AB-ENTITYD DATE aad 


NML L_NMV, 

NML$AB AB-RECBUF “WACEAL Ce ENT INE TAB 
NMLSAL_PERMINF TAB 
NMLSAW_PRM_DES, NMLSGB_CMD_VER 
NMLSGB_ENTITY_CODE 

NML$GB_ ENTITY" FORMAT 

NAC SEL “QUALIFTER_PST 

NML$GB- -QUALIFLIER FORMAT 


NML$GB~F 
NML$GB~INFO, NML$GB_OPTIONS 
NALSL =PRMCODE NAL SL _PRS_FLGS 


GB_ 
NML$GW- VOLE 
NMCSADDMS Grou, “AML SADDMSGPRM 
NMLSLISNMLVER, NMLSGETNODNAM 
NMLSNETQIO, NMLSERRO R_1 
SCODES ,NOWRT ,2 


NMLSSHOPARAM, Save R2,R3,R4,R5 
HAN STRING 


(R3), DATA, TYPE 
#6, DATA TYPE, 1$ 
#1, NMLSERROR_1 
#0, #6, DATA_TYPE, NICE_LEN 


1 
: NELSSHOPRM NML special volatile parameter handling routine 1b-se 1984 233: AX-11 Bliss-32 V4.0-742 Page 8 NM 
v0G- beclarations , ° 12-80 8- 1 3e 99:33:38 NAL. SREINMG SHOPRM: B3224 we vO 
1E 11 000 BRB 5$ : 0202 : 
05 52 Q E 09 3 2$: BBS #6, DATA_TYPE, 3$ : 0218 : 
OF 0 9 BITB DATA_TYPE, #15 ; 0219 : 
10 12 0002C¢ BNEQ 4$ : : 
50 146 AC 00 0 3$: MOVL  DATPTR, RO : 0222 ; 
4 00 80 MOVZWL (RO), NICE_LEN : l; 
$0 2 C0 00 ADDL2 #2, (RO) + 0223 : 
§ 1 pO 000 MOVL #1, CHECK _STRING + 0224 : 
5 11 0003C BRB $ : 0218 : 
54 52 04 Q EF 000 : 4$ EXTZV #0, #4, DATA_TYPE, NICE_LEN : 02¢7 : 
07 E9 00043 5$ BLBC CHECK STRING, 6$ ; 0236 ; 
54 OD 0046 TSTL NICE_CEN : : 
19 1 4 BNEG : : 
27 55 £8 OO04A BLBS § CHECK_STRING, 9$ + 0237 : 
0 14 BC DO 00040 6$ MOVL § @DATPTR, RO : ; 
FFFFFFFE © 8F 60 D1 00051 CMPL (RO), #=1 : 
17 13 00058 BEQL $ : 
14 BC DD O00SA 7$ PUSHL  @DATPTR + 0243 
4 DD 0005p PUSHL cE + 9242 
7E 03 A3 9A 0005F MOVZBL 3(R33, -(SP) + 0247 
7E 63 3C 00063 MOVZ2WL (R3), = + 0240 
7E 08 AC 7D 00066 OVO BUFDSC, > 0238 
000000006 00 06 FB OO06A CALLS #6, NMLSADDMSGPRM ; 
06 55 €9 00071 8$: LBC. CHECK _STRING, 10$ + 0250 
14 BC 54 CO 00074 9$: ADDL2 NICE_CEN, @DATPTR : 
04 11 00078 BRB 11$ ; 
14 «BC 04 CO 0007A 10$ ADDL2 #4, @DATPTR > 0252 
50 01 DO O007E 11$ MOVL #1, RO > 0254 
04 00081 RET : 0256 


; Routine Size: 130 bytes, Routine Base: $CODE$ + 0000 
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v04= 


Be Se Oe Ge Be Se Se Se Be Se Se Ge Ge Ge Oe Se Oe Oe oe OH Ss Oe Se Se Se Oe Oe Oe Oe Oe Oe HH Oe Oe Oe OHO e Oe Ot we Oe ee 


BURA UW HOG ION RN ODo UR 


PSOE ah Ga ah grt 
~o 


$ 


; Routine Size: 
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21 bytes, 


H 1 
lL volatile parameter handling routine 16-Sep-1984 00:33:3 AX-11 Bliss-32 v4.0- 
VER Get Ne version number ° 137308- 1382 99:25:38 NML..SRCINMLSHOPRM.B3 


BTITL "NMLSSHONMLVER Get NML version 
OBAL ROUTINE NMLSSHONMLVER (SEM_TA 


number' 
BLE, BUFDSC, MSGSIZE, DUMDSC, DATPTR) = 


144 
FUNCTIONAL DESCRIPTION: 


This routine moves the network management version number into 
the output message as a coded multiple parameter. 


i FORMAL PARAMETERS: 


SEm_TABLE Parameter semantic table ye address. 
BUF BSC Output message buffer descriptor. 
MSGSIZE Address of current output message size. 
DUMDSC Not used. 

DATPTR Current pointer into Q10 data buffer. 


i IMPLICIT INPUTS: 


NONE 


! IMPLICIT OUTPUTS: 


Parameter is added to output message buffer. 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 


i SIDE EFFECTS: 


NONE 


BEGIN 
NMLSLISNMLVER (.SEM_TABLE, .BUFDSC, .MSGSIZE, .DUMDSC); 
RETURN NML$_STS_SUC 


END; ! End of NMLSSHONMLVER 
0000 00000 -ENTRY NMLSSHONMLVER, Save nothing 
7E OC ac 7D 00002 MOV MSGSIZE, -(SPS 
7E 04 AC 7D 60006 MOVQ SEM_TABLE, -(SP) 
000000006 00 04 FB OOOOA CALLS #4, NMLSLISNMLVER 
50 01 BO 90011 MOVL #1, RO 


Routine Base: S$CODE$ + 0082 


1 
WSS" stessdelyolatt gyparameter handling routine tf-sep-196¢ 00:35:55 YARCTL BU igs 32 yt 0524 teal 
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NALS RM NML_ special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-74 Page 11 
irae ti NMLSSHOVERSION Get coded multiple version numb 1 ~300 1382 99:33:38 NHL. SRCINAL SHOPKM032¢ . (5) 
ZSBTTL hat ppmig ty ION Get coded multiple version number’ 
GLOBAL ROUTINE NMLSSHOVERSION (SEM_LIST, BUFDSC, MSGSIZE, DUMDSC, DATPTR)= 


'¢ 


+ 
} FUNCTIONAL DESCRIPTION: 


ME wr 


This parameter moves network coc tt tr version numbers into the 
Output message buffer as a coded multiple field. Version numbers 
are a string of three bytes. 


FORMAL PARAMETERS: 
SEM_LIST Parameter semantic table entry address. 
BUF BSC Output message buffer descriptor address. 
MSGSIZE Address of current output message size. 
DUMDSC Not used. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

The output message buffer contains the coded multiple version number. 
' 
i 
] 
i 
i 
, 
i 
i 
i 
ie 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
NONE 
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SSSOUSN 
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BEGIN 


P 
SEM_LIST : REF BLOCK C, BYTE); 
Loc 


= 


*BUFFER : VECTOR (6, BYTE), 
BIR: 
Read version parameter. 
LEN = .(.NMLSGL_EXEDATPTR)<0,16>; 
IF .LEN NEQU 3 ! Length must be 3 bytes 
RETURN NML$_STS_MPR; 
é NMLSGL_EXEDATPTR = .NMLSGL_EXEDATPTR + 2; 


i Add version parameter to message. 
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; Routine Size: 88 bytes, Routine Base: S$CODES + 0097 


kK 1 
NML special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-74 
NMLSSHOVERSION Get cbaed multiple sorkion numb 13-88-1382 90:33:38 AL SREIWAL SHOP O35. eae (3 
7 ' 
5 PTR = CHSPTR (BUFFER); ! Point to output buffer 
6 INCR I FROM 0 TO 2 DO 
1 BEGIN 
i CHSWCHAR_A (1, PTR); 
63 CHSUCHARTA (CHSRCHAR_A (NMLSGL_EXEDATPTR) = 'O' , PTR); 
65 | 
66 NMLSADDMSGPRM ( .BUFDSC 
6 “MSGSIZE 
9 4 -SEM_LIST FPST$W_DATAID] 
$8 zSEMILIST PSTSB-DATATYPE] OR 3, 
6 4 BUFFER); 
0 73 RETURN NML$_STS_SUC 
0375 1 END; ! End of NMLS$SHOVERSION 
001¢ 00000 .ENTRY NMLSSHOVERSION, Save R2,R3,R4 : 0301 
54 000000006 00 i 00002 MOVAB NMLSGL_EXEDATPTR, R4 : 
5E 08 C2 00009 SUBL2 #8, ; 
50 64 D0 0000C OVL § NMLSGL_EXEDATPTR, RO : 0348 
50 60 3C 0000F MOVZWL (RO), CEN : 
03 50 D1 90012 CMPL , : 0350 
04 13 0001 BEQL ; 
50 OA CE 00017 MNEGL #10, RO : 0352 
04 OOO1A RET 3 
64 02 CO 0001B 1$: ADDL2 #2, NML$GL_EXEDATPTR > 0354 
50 6 9E OO01E MOVAB BUFFER, PTR : 0358 
52 D4 00021 CLRL : 0360 
8 01 90 00023 2s: MOVB #1, (PTR)+ ; 036¢ 
5 64 D0 00026 OVL §§NMLSGL_EXEDATPTR, R3 : 036 
5} 63 9A 00029 MOVZBL F 
64 06 0002C INC Ni SL EXEDATPTR : 
80 e4 30 8 990 E SUBB3. #48, RT, (PTR)+ : 
ED 92 02 F3 000 AOBLEQ #2, I, 2$ + 0360 
5E DD 00036 PUSHL SP : 0366 
06 Db 99 8 PUSHL #6 ; 
50 06 aC D A MOVL sen LIST, RO : 0369 
51 03 AO 9A 000 E MOVZBL (RO), R1 : 
7E 31 03 9 0004 RISL3. #3, RI, -(SP) F 
E 60 3¢ D046 Muvzwe (RO), -(SP) > 0368 
7E 08 AC 70 00049 MOVO  BUFDSC, -(SP) : 0366 
000000006 96 06 FB 004D CALLS #6, NMLSADDMSGPRM : 
1 0054 MOVL #1. RO : 0373 
4 00057 RET : 037 
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; 0 § 
; 0391 
3 0 6 
5 039 
; Be3e 
; 400 0395 
; 401 t] 38 
; 40 039 
; 40 0398 
: 404 0399 
; 405 0400 
; 406 0401 
; 407 ott 
; 408 040 
; 409 0404 
; 410 0405 
3 «411 0406 
3 $i¢ 0407 
; «641 0408 
7 616 0409 
; 615 0410 
: 616 0411 
3: 4617 Brie 
; 416 041 
; 619 14 
: 4620 415 
: $621 16 
: $56 0417 
: 382 0619 
3 rey: $426 
7 4 $ 421 
; 4 4 ¢ 
oe 
: 1% 5 
; 431 g 
i 43 

3 t3z 4 3 
- ‘a 
: 139 32 
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1 
ecial volatile parameter handling routine 1bes “19 
OREMSTA Get renete node state ° +4 


XSBTTL "NMLSSHOREMSTA Get remote 
GLOBAL ROUTINE NMLSSHOREMSTA (SEM_ 


lee 
FUNCTIONAL DESCRIPTION: 


14 
node sta 
LIST, BU 


t ' 
T, BUF 


states are possible: 
reachable (NETACP value = 1, NML value 


BEGIN 


SEM_LIST : REF BLOCK C, BYTE); 


LOCAL 
STATE : BYTE; 


IF oY palling EQLU -1 THEN 

-DATPTR = ..DATPTR + 4; 

RETURN NMLS$_STS_PTY; 

, END; 

! Map bit setting to correct network management value. 


STATE = ( IF .(..DATPTR)<0,8> THEN 
a NMASC_STATE_REA ! Reachable 


NMASC_STATE_UNR) ; ! Unreachable 
! Add state parameter to message. 


NMLSADDMSGPRM (.BUFDSC 
.MSGSIZE 

*SEM_LIST festsy DATAID 

M7LIS 


“L £ } 
“LIST CPSTSB~DATATYPE), 


30071388 99: 


30:20 INML-SREINALSHOPKN- 83 


e 
DSC, MSGSIZE, DATDSC, DATPTR)= 


This routine maps remote node status from the internal NETACP 
bit value to the network management state value. The following 


NMASC_STATE_REA) 


i 

i 

i 

i 

i = 

unreachable (NETACP value = 0, NML value = NMASC_STATE_UNR) 
FORMAL PARAMETERS: 

i SEM_LIST Parameter semantic table entry address. 

! BUF DBS Output message buffer descriptor address. 

: MSGSIZE Address of current output message size. 

H DATDSC Q10 buffer descriptor address. 

DATPTR Current pointer into Q10 data buffer. 

i ROUTINE VALUE: 

COMPLETION CODES: 

i If NETACP did not know the state of the remote node, returns 
NML$_STS_PTY. 

a 

-_ 


| 
| 


< 
oO 
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4 1 
NAL SSHOPRA NML special volatile parameter handling routine 16-Sep-1984 233: AX-11 iss-32 V4.0-74 
v04 NMLSSHOREMSTA Get ponete node state toms 127808-1 382 99:33:38 NAL Se War SHOPAR 93001 


4 3 1 
§ $f 4 STATE); 


Se 
: 640 
; 44] 4 .DATPTR = ..DATPTR + 4; 
: 44 % : RETURN NML$_STS_SUC 
3; 665 440 END; ! End of NMLSSHOREMSTA 
0000 00000 -ENTRY NMLSSHOREMSTA, Save nothin 
SE 04 C2 09009 SUBL2. #4, SP . 
50 14 BC D0 0000 MOVL @DATPTR, RO 
FFFFFFFF 8F 60 01 st 84 CMPL (RO), #-1 
08 jf 001 BNE 
14 B¢ 04 =C 001 ADDL2 #4, @DATPTR 
0 0c cE 001 MNEGL #12, RO 
4 00019 RET 
50 14 BC DO OOOIA 1$ MOVL QDATPTR, RO 
05 60 £9 OOO1E BLBC (RO), 2$ 
50 04 DO 900 1 MOVL #4, RO 
03 11 00024 BRB 5 
50 05 DO 00026 2s MOVL #5, RO 
6E 50 90 00029 3$ MOVB RO. STATS 
SE DD 0002C PUSHL 
01 DD 0002E PUSHL #1 
50 64 AC DO 00030 OVL sen LIST, RO 
7E 03 AO 9A 00054 MOVZBL 3(RO), -(SP) 
7E 60 3C 00038 MOVZWL (RO), =-(SP 
7E 08 AC 7D 00038 ova uFDSsC, = 
00000000G 00 06 Fe te CALL #6, NMLSADDMSGPRM 
14 C 04 C 0046 ADDL #4, @DATPT 
01 b0 QO04A MOVL ; RO 
04 0004D ET 


; Routine Size: 78 bytes, Routine Base: S$CODE$ + OOEF 
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NML special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-742' 
NMLSSHONODEID. Get adjacent node id” 1ersen i Set 98:55:38 | ATE Ohi ae cae va Bos 


ZSBTTL "NMLSSHONODEID Get adjacent node id' 
GLOBAL ROUTINE NMLSSHONODEID (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 


ise 


! FUNCTIONAL DESCRIPTION: 


= 
NO 


i Get node address from P4 buffer returned by NETACP and increment pointer 
: to the next parameter in the buffer. 


nodadr = .(..datptr)<0,32>; 
,datptr = ,.datptr + 4; 


i If address is zero then don't return this parameter. If there is one, 
skip over the node name parameter before returning. 


if -nodadr EQLU -1 THEN 


If .sem_list Cost$i_nfbid] EQ. nfpse ait add OR 
-sem_list Cpst$T_nfbid] EQL nfb$< 


1 
1 
1 
1 
ace 
47 1! This routine adds the id of the remote node (NMAS$C_PCLI_ADJ) to 
48 1! which a Line is connected to the output message buffer as a coded 
rf : H multiple field. 
3 : FORMAL PARAMETERS: 
24 1; SEM_LIST Parameter semantic table entry address. 
0454 1! BUF BSC Output message buffer descriptor address. 
0455 1! MSGSIZE Address of current output message size. 
peas ,; DATDSC Q10 buffer descriptor address. 
ot t4 : } DATPTR Current pointer into Q10 data buffer. 
0459 1! 
0460 1 ! ROUTINE VALUE: 
Bees : H COMPLETION CODES: 
bcs : : Always returns success (NML$_Sis_SUC). 
bees 1 ! SIDE EFFECTS: 
B668 1! 
0467 1! NONE 
Bees 1! 
469 1 !-- 
0470 1 
0471 BEGIN 
pers 
047 MAP f 
Beee sem_list : # * SLOCK C, BYTE); 
ps 76 LOCAL 
047 cm_count, ! Coded multiple field count 
os name_dsc: VECTOR fed ! Descriptor of node name. 
name_buf: BBLOCK [6], ! Temporary buffer for node name. 
totlen, ! Total .ength of field 
neeeers 
ptr; 
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8 HOPRM NAL special volatile ——— handling routine 16-Sep-1984 90:33:38 AX-11 Oh teen ag V4.0-742 


NMLSSHONODEID Get adjacent node id 14-Sep-19 NML ..SRCINMLSHOPRM.B32; 1 
498 -sem_list Cpst$l_nfbids EQL nfb$c_Lli_pnn_THEN 
datptr = ..datptr + .(..datptr)<0,165 + 2; 


LESR 


RETURN nml$_sts_pty; 
END; 


If the NCP I'm talking to is speaking NICE V3.0.0 or less, and the node 

is in the executor's area, clear the area number from the node number. 

The theory is that the Phase III system should see node's in the executor's 
area normally (for a Phase II] system), but node's outside the exeuctor's 
area shouldn't be represented as nodes in the executor's area. So those 
will just have funny addresses because the area number will not be properly 
formatted by the Phase II] system. 


F CHSRCHAR (rml$gb_ncp_version) LEQ 3 THEN 
BEGIN 


ee ee ee 


nodadr: BBLOCK; 


IF .nmt$gw_vol_exec_addr Cnma$v_area] EQL .nodadr Cnma$v_area] THEN 
- nodadr (Cnma$v_area] = 0; 


tr = nml$t_prmbuf fer; 
' Add node address field. 


p 
CHSWCHAR_A (2, ptr); 
ptr = CHSMOVE BF nodadr, .ptr); 


WANIANIRINIPYNPININONINIDY 2 2 2 SS OS OS 


1 

i 

' 

4 

! Get the maximum number of fields in the coded multiple (some parameters 
! are returned as a node number and name, and some are returned as simply 
a node number. 
' 

i 

i 

1 

I 


cm_count = .sem_list Cpst$b_datatype] AND NOT nma$m_pty_cmu; 


If a node name is ever part of this parameter, add the node name field 
! (provided NETACP returned one) to the NICE message. 


iF “em count EQL 2 THEN 
SELECTONEU -sem_list Cpst$l_nfbid] OF 


! Circuit adjacent node address 
ntb$c_ndi_nnd ! Node next node to destination 
nfb$c Llizpnnd: ! Logical Link partner node 


name_dsc (0) = .(..datptr)<0,16>; 
-datptr = ..datptr + 2; 
name_dsc [1] = ..datptr; 
glotate = ..datptr + .name_dsc (0); 


Ww 
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6; 
name _buf; 
nmi $getnodram (.nodadr, name_dsc, name_dsc (0)); 
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NMLSSHOPRM NML special volatile parameter handling routine 1h-s6 -1984 333: AX-11 Bliss-32 V4.0-742 P 7 
yos~000 WALSSRONODEID” Get edhecent nodes tae eee en eeen ake 99585556 tee ed ee ae kn Os0r4 age 

| 
s 56) 5 END; 
5 ° $ TES; 
: 564 0558 i If a node name was returned by NETACP, add it to the message 
; rs 0559 ' parameter. 
: 269 bees ir dsc CO] NEQU O THEN | 
3 -name_dsc 
; 568 R206 4 BEGIN 
: 299 beez é CHSWCHAR_A (nma$m_pt ) | 
oO nma eo t Py 
; or 0565 4 CHSWCHAR-A ( namendse C03 ptr); | 
3 2f8 B208 4 ptr = CHSMOVE (.name_dsc to5. -name_dsc [1], .ptr); 
ae 567 4 
; 574 0568 4 END 
; 575 0569 ELSE | 
; 576 0570 cm_count = 1; 
3; 577 0571 END; 
: 278 §358 totl t L$t_prmbuff | 
e mS re- : 
: $80 BSB aappetr i an toot certain | 
3 2g! $34) 2 Add node id to output message as a coded multiple field. 
; 283 0577 nm $addmsgprm (.bufdsc, | 
> 584 0578 -msgsize, | 
3 rH et4 4 sea. Uist petty Sanetds. 
3 nma cm cm nt, 
: 387 0581 eh | 
; 588 peng 2 nml$t_prmbuf fer); 
; 589 0583 2 | 
; 590 0584 § RETURN nml$_sts_suc 
; 591 0585 
; 592 0586 1 END; ! End of nml$shonodeid 

| 


01FC 00000 .ENTRY NMLSSHONODEID, Save R2,R3,R4,R5,R6,R7.RB =; 0442 
58 00000000" 00 9€ 00002 MOVAB NMLS$T_PRMBLFFER, R8 ; 
5E 10 Cs 00009 SUBL2 #16, SP : 
51 14 aC 00 0000C MOVL DATPTR, R1 : 0488 
52 00 81 DO 00010 MOVL a@0(R1). NODADR ; 
61 04 CO 00014 ADDL2 #4, (Ri) : 0489 | 
FFFFFFFF © 8F 2 01 90017 CMPL  NODADR, #-1 > 0494 
1 12 dig BNEQ ; 
50 04 AC DO 000 MOVL Sen List RO > 0496 | 
13010010 &F OC AO D1 00024 CMPL 12(R0), #318832656 F 
14 13 999 C BEQL «i$ ; 
02010022 &F 0c AO Di 0002E CMPL 12(RO), #33620002 > 0497 
0A 13 000 BEQL =s«s1$ : | 
08020043 = 8F 0c Ad Di 000 CMPL 12(RO), #134348867 > 0498 
0B 12 004 BNEQ 2$ ; 
50 00 81 3C 00042 1$ MOVZWL @0(R1), RO > 0499 
50 61 £0 004 ADDL2 (R1), RO ; | 
61 02 AO 9E 04 MOVAB 2(ROS, (R1) ; 
0 OC CE 00040 2$ MNEGL #12, RO : 0500. 
04 00050 RET : 
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3 000000006 36 


; Routine Size: 


02010022 
08020043 
13010010 
08 
oc 


000000006 


oc 


000000006 


Routine Base: 


NML special volatile parameter handling routine 
NMLSSHONODEID Get adjacent node id 


03 000000006 99 


1 
06 A 
06 ¢ 
26 FCOO F 
> 68 
fee" 8 
83 
56 06 AC 
06 9 
02 ; 
50 OC A6 
8F 50 
12 
8F 50 
9° 
8F 0 
12 
AE 00. «BI 
61 02 
AE 61 
61 08 ae 
1 
AE 06 
AE 6E 
08 AE 
OC AE 
52 
00 03 
50 08 AE 
OE 
83 40 8F 
83 50 
BE 50 
03 
57 01 
50 68 
53 50 
0101 + 8F 
57 000000C0 BF 
7E 66 
7E 08 AC 
00 06 
50 01 
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7$: 


:30:20 ENML.SRCINALSHOPRN B32; 


OR SE MP VERSION, #3 
#i0. #6, NODADR, 


RO 
, #6, NML$GW_VOL_EXEC_ADDR+1, RO 


#64512, NODADR 
NML$T_PRMBUFFER, PTR 

#2, (PIR)+ 

NODADR, (PTR)+ 

EM_LIST R6 

#0,7#6, $(R6), CM_COUNT 
MCOUNT, #2 


12(R6), RO 
RO, #33620002 


RO, #134348867 
RO, #318832656 
+ Sag NAME _DSC 


Ri) 
(Ri), NAME_DSC+4 
DSC, TR1) 


#6, NAME_DSC 

E_BUF, NAME_DSC+4 
“DSC 

NAME ~DSC 

NODADR 

#3, NMLSGETNODNAM 

NAME_DSC, RO 

#64, (PTR)+ 

RO, (PTR)+ 

RO, @NAME_DSC+4, (PTR) 

#1, CM_COUNT 

NMLST_PRMBUFFER, RO 

RO, PTR, TOTLEN 

#*M<RO,RB> 

#192, ¢M_COUNT, -(SP) 
R6). -(SP) 

BUFDSC, -(SP) 

#6, NMLSADDMSGPRM 

#1. RO 
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NMLSSHOPRM NML special volatile parameter handling routine ibese -1984 00:33: AX-11 Bliss-32 V4.0-742 Pa 1 
v04-000 NMC SSHOOBJPRV Get object privilege nash 12786871382 99:35:38 NML -SRCINAL SHOPRM B32. ” (8 


: 594 8 7 1 ZSBTTL "NMLSSHOOBJPRV Get obtect rivilege mask‘ 

3 32 b2 3 ! GLOBAL ROUTINE NMLSSHOOBJPRV (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 

; 537 590 1 !+4+4 | 
; 43 44! ] FUNCTIONAL DESCRIPTION: | 
; 600 238 , | This routine gets the privilege List (NMASC_PCOB_PRV) for a network 
3 paid Be8e } object and adds it to the output message buffer. | 
; 60 0596 1! Currently, only the first longword of the privilege mask can be 

; 604 0597 1! set so that is all that is reteraeé. “ 
; 605 Bege . 3 | 
; 606 599 1 ! FORMAL PARAMETERS: 
; 607 0600 1! 
; 608 0601 1! SEM_LIST Parameter semantic table entry address. | 
; 609 0602 1! UFBSC Gutput message buffer descriptor address. 

: 610 0605 1! MSGSIZE Address of current output message size. 
; 611 06 7% DATDSC Q10 buffer descriptor address. 
s oi¢ 0605 1! DATPTR Current pointer into Q10 data buffer. | 
; «61 0606 1! 
: 614 0607 1 ! IMPLICIT INPUTS: 
; 615 0608 1! 
; 616 0609 1! NONE 
; 617 0610 1! | 
: 618 0611 1 ! IMPLICIT OUTPUTS: 

3; 619 pele 1! 
3 620 Betz : The output message buffer contains the object privilege mask. 
: 622 0615 1 ! ROUTINE VALUE: | 
s ¢€e9 0616 1 ! COMPLETION CODES: 

; 624 0617 1! 

; 625 0618 1! Always returns success (NML$_STS_SUC). 

> 626 0619 1! 

; 627 0620 1 ! SIDE EFFECTS: 

; 628 0621 1! 

3s 629 poee 1! Destroys the contents of NMLS$T_PRMBUFFER. 

; 630 0623 1! 

; 631 0624 1 !-- 

; $34 0625 1 

3 63 0626 2 BEGIN 

> 634 0627 2 

: 635 0628 § MAP 
; 636 0629 SEM_LIST : REF BLOCK C, BYTE); 
3 6657 0630 § 
3; 638 0631 IF .¢(..DATPTR)<0,32> NEQU -1 
: 639 po3¢ THEN 
3; 640 06 NMLSADDMSGPRM ( .BUFDSC | 
: 641 0634 -MSGSIZE 
; 642 0635 SEM_LIST cesT$u_DATAID] 

> 64 0636 -SEMTLIST CPSTSB~DATATYPE) OR 4, | 
> 644 063 4, 
3 645 0638 . -DATPTR); 
; o*8 0639 
: rar Beat -DATPTR = ..DATPTR + 4; 
3; 6649 ots RETURN NML$_STS_SUC | 
; 650 064 


ge 
ecial volatile parameter handling routine 16-Sep-19 


< 92:50:38 EAMc.SRCINALSHOPRN=B30;1 


! End of NMLSSHOOBJPRV 


OOBJPRV Get object privilege mask 
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Routine Base: S$CODES + 0248 


; Routine Size: 


PRV, Save R2 


trou 


sem LIST, RO 
(RO), Ri 
a4 Ri, -(SP) 


BUFDSC, =(SP) 
#6, NN SADDMSGPRM 
#4, (RO) 
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NML_ special volatile parameter handling routine 18-56 -1984 00:33: AX-11 Bliss-32 V4.0-74 
NALSSH SERVPASS Get Service password ’ 12-88-1382 99:25:38 


ZSBTTL "NMLSSHOSERVPASS Get service pepeverd. 
GLOBAL ROUTINE NMLSSHOSERVPASS (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 


44 


} FUNCTIONAL DESCRIPTION: 


This routine gets the service password (NMASC_PCNO_SPA) for the 
remote node and adds it to the output message as a hexadecimal 


i 
i 
: number. 
; FORMAL PARAMETERS: 
i SEM_LIST Parameter semantic table entry address. 
' BUF BSC Output message buffer descriptor address. 
' MSGSIZE Address of current output message size. 
! DATDSC Q10 buffer descriptor address. 
DATPTR Current pointer into Q10 data buffer. 
; IMPLICIT INPUTS: 
! NONE 
IMPLICIT OUTPUTS: 
The output message buffer contains the hex service password. 
i ROUTINE VALUE: 
COMPLETION CODES: 
! Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
; NONE 
-_ 
BEGIN 


MAP 
SEM_LIST : REF BLOCK C, BYTE); 


LOCAL 

PRMSIZE; 
PRMSIZE = .(..DATPTR)<0,16>; 
-DATPTR = ..DATPTR + 2; 


i If the Length is zero then the parameter is not set. 
IF .PRMSIZE EQLU 0 
RETURN NML$_STS_PTY; 


Add the parameter to the message. 
NMLSADDMSGPRM (.BUFDSC, 


NML .SRCINMLSHOPRM.B32; 


+ 


| 
Page 21. 
m8) 
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SS 
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; Routine Size: 
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60 bytes, 


H 2 
NML special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-74 
NMLSSA SERVPASS Get Serutee password ° 13-808- 1382 90:33:38 f 


7 FesTSu_DATAID] 
[SEM“LIST CPSTSB"DATATYPE] OR .PRMSIZE, 
-PRMSIZE, 


.DATPTR = ..DATPTR + .PRMSIZE; 
RETURN NML$_STS_SUC 


END; ! End of NMLSSHOSERVPASS 
0004 90000 .ENTRY NMLSSHOSERVPASS, Save R2 
50 146 BC bd 0002 MOVL  @DATPT 
52 60 3¢ 00006 MOVZWL (RO), PRMSIZE 
14 BC 98 rai) 90009 ADDL2 #2, @DATPTR 
D5 0000D TSTL  PRMSIZE 
04 12 0000F BNEO 
50 0c cE 00011 MNEGL #12, RO 
4 00014 RET 
14 BC DD 00015 1$: PUSHL  a@DATPTR 
2 DD 00018 PUSHL PRMSIZE 
50 04 AC DO OOOIA OVL SEM LIST, RO 
51 03 AO 9A 00016 MOVZBL 3(RO), Ri 
51 52 C9 0002 ISL3. PRMSIZE, R1, -(SP) 
7E 60 3¢ 00026 MOVZWL (RO), -(SP) 
7E 08 AC 7D 00029 OVO BUFDSC, =(SP) 
000000006 00 06 FB 90020 CALLS #6, NMLSADDMSGPRM 
14 BC 52 CO 00034 ADDL2 PRMSIZE, a@DATPTR 
50 01 00 00038 MOVL #1, RO 
04 00038 RET 


Routine Base: $CODE$ + 027D 


NML.SRCJNMLSHOPRM.B32; 


Bete Se Se Se Se Ge Se Se Se Ge Se Se Se Se Se Be Se Be 


Den 30800—5"""""__ 


2 
NALSSHOPRM NAL ppec tal volatile pergnetor handling routine 1b-sep-19 4 90: 33:36 AX-11 Bliss-32 V4.0-742 
v04 NMLSSHOLINEID Get Line id 14-Sep-1984 :50: NML.SRCINMLSHOPRM.B32; 1 
oe ¢ 713° 1 ZSBTTL "NMLSSHOLINEID Get Line id' 
F f Z ee : GLOBAL ROUTINE NMLSSHOLINEID (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 
: 725 716 1 !44 
: $ ay : FUNCTIONAL DESCRIPTION: 
: 728 8 1 i This routine reads the Line id string and converts it from 
3 f 2 9 : } VMS format to DNA format and then adds it to the output message. 
; 731 ? ; i FORMAL PARAMETERS: 
2 : 7eu 1: SEM_LIST Parameter semantic table entry address. 
ee 725 1! BUF BSC Output message buffer descriptor address. 
.- wa 7 ° 1! MSGSIZE Address of current output message size. 
oe 7 1! DATDSC Q10 buffer descriptor address. 
5 4 : DATPTR Current pointer into Q10 data buffer. 
: 139 07 0 1 i IMPLICIT INPUTS: 
ie se 
; 4s 07 4 1 ! IMPLICIT OUTPUTS: 
: ree b2R9 ! : The output message contains the NA Line id. 
: 747 O78 1 § ROUTINE VALUE: 
3 oy 3894 : COMPLETION CODES: 
: eee 15% : Always returns success (NML$_STS_SUC). 
; 13¢ O70§ 1 i SIDE EFFECTS: 
3 7 0744 1! 
3; 754 0745 1! NONE 
: 755 Ore6 1! 
; 756 0747 1 !-- 
s For 0748 1 
: 758 0749 BEGIN 
me RS 
> 761 0758 SEM_LIST : REF BLOCK C, BYTE); 
: ¥e byez LOCAL 
; 764 0799 PRMSIZE; 
: 766 735 PRMSIZE = .(..DATPTR)<0,16>; 
: rer 738 -DATPTR = ..DATPTR + 2; 
: as 3700 ! If the Length is zero then the parameter is not set. 
; a7 Ore "IF .PRMSIZE EQLU 0 
: 7 O74 RETURN NML$_STS_PTY; 
; 46 8 Add the parameter to the message. 
: 77 768 2  NMLSADDMSGPRM ( .BUF DSC 
> 778 0769 “MSGSIZE, 


~ 
Wooo 
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; Routine Size: 


jbargneter handling routine b-seo-1984 90: 33:36 ge Bliss-32 V4.0-742 Page 26! 


1 
14-Sep-1 L.SRCINMLSHOPRM.B32; 1 


ST [PSTSW_DATAID] 
st PSTSB-DATATYPE), 
RS 


RETURN NML$_STS_SUC 
END; ! End of NMLSSHOLINEID 


GOOCOOCOCoCooO 
33 


SSN 


e 
0 
-S 
S 
P 
-DATPTR = ..DATPTR + .PRMSIZE; 
1 


i i i i ee 


DWOONOULS WO 


0004 00000 .ENTRY NMLSSHOLINEID, Save R2 0714 
50 146 BC b0 00002 MOVL  @DATPTR, R 0757 
52 60 3C 00006 MOVZWL (RO), PRMSIZE 
14 BC 0¢ C9 000 ADDL2 #2, @DATPTR 0758 
52 D5 0000 TSTL _ PRMSIZE 0762 
04 12 0000 BNEQ ~=«'1$ 
50 0c ce 001 MNEGL #12, RO 
4 0001 ET 
14 BC DD 0001 @DATPTR 
DD 9001 PUSHL PRMSIZE 0772 
50 04 AC DO 0001 VL SEN LIST, RO 0771 
7E 03 AO 9A 0001 MOVZBL 3(RO), -(SP) 
7E 60 3C 0002 MOVZWL (RO), =(SP) 0770 
7E 08 AC 7D 0002 MOVO BUFDSC, -(SP) 0768 
000000006 00 06 FB 000¢ CALLS #6, NMLSADDMSGPRM 
14 BC 52 CO 000 ADDL2 PRMSIZE, aDATPTR 0775 
50 01 DO 00034 MOVL #1, RO 0777 
04 00037 RET 0779 


56 bytes. Routine Base: S$CODE$ + 0289 
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NML special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-742 
NMLSSKIPLONG Skip iSnguerd in Q10 Pa *but ter 12-80-1884 99:35:36 NAL -SREINAL SHOPRM B32 
780 1 ty "NMLSSKIPLONG Skip longword in Q10 P4 buffer’ 
f 1 : GLOBAL ROUTINE NMLSSKIPLONG (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 
7 § 1 !¢¢ 
f 2 : } FUNCTIONAL DESCRIPTION: 
7 1: This routine skips (advances the pointer past) a byte, word, or 
7 lLongword pereneter in the Q10 P4 buffer. Note that the ACP always 
f 3 : returns these parameters in a longword. 
730 : FORMAL PARAMETERS: 
19 1 i SEM_LIST Parameter semantic table entry address. 
or 1! BUF BSC Output message buffer descriptor address. 
794 1! MSGSIZE Address of current output message size. 
0795 1! DATDSC Q10 buffer descriptor address. 
87 : } DATPTR Current pointer into Q10 data buffer. 
Or 1 ' IMPLICIT INPUTS: 
799 1! 
0800 1! NONE 
0801 1! 
43 : } IMPLICIT OUTPUTS: 
804 1! NONE 
0805 1! 
Bane 1 ! ROUTINE VALUE: 
44 : COMPLETION CODES: 
0809 i ; Always returns success (NML$_STS_SUC). 
$814 1 ' SIDE EFFECTS: 
pels . 7 
0815 1! NONE 
0814 1! 
0815 1 !-- 
Bei8 1 
081 BEGIN 
0818 
ir th4 -DAT®TR = ..DATPTR + 4; 
0831 RETURN NML$_STS_SUC 
$858 1 END; ' End of NMLSSKIPLONG 
0000 00000 -ENTRY NMLSSKIPLONG, Save nothing 
14 + 4 C€0 00002 ADDL2 #4, @DATPTR 
0 1 ? site MOVL #1, RO 
4 0000 RET 
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2 
jal volatile parameter handling routine 1b-s -1984 :33: Ax-11 iss- 4.0-74 
PSTRING Skip string poreneter” “ 12-Sep-19 4 99:25:38 ENML SRE WALSHOPRA O500% 
<%SB 


TTL "NMLSSKIPSTRING Ski tiring pereneter 
GLOBAL ROUTINE NMLSSKIPSTRING (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine skips (advances the pointer past) a string parameter 
in the Q10 buffer. 


i FORMAL PARAMETERS: 


t 
' 
i] 
1 
1 
: SEM_LIST Parameter semantic table one address. 
: BUF BSC Output message buffer descr ptor address. 
! MSGSIZE Address of current output message size. 
' DATDSC Q10 buffer descriptor address. 
DATPTR Current pointer into Q10 data buffer. 
; IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
COMPLETION CODES: 
Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
NONE 
lee 
BEGIN 
LOCAL 
LEN; 
LEN = .(..DATPTR)<0,16>; 
-DATPTR = ..DATPTR + 2; 
-DATPTR = ..DATPTR + .LEN; 
RETURN NML$_STS_SUC 
END; ! End of NMLSSKIPSTRING 
0000 00000 -ENTRY NMLSSKIPSTRING, Save nothing 
BC go 0002 MOVL @DATPTR, RO 
60 3C 00006 MOV2wL (RO), LEN 
02 CO 00009 ADDL2 #2, @DATPTR 


M 2 
mS ELGARTESNLnaUSNSLPacemags pantie rowe ine HE-sectags 00536 MATL dat toast rae 


14 3 89 69 B901} ROVE re Obe9 


; Routine Size: 21 bytes, Routine Base: S$CODES + 02FB 


Be Se Se Se Se Se Se Se Se Ge Fe Se Ge Se Ge Fe Se Ge Fe Gs Ge Ge Ge Se Se Ge Se Be Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se oe FH Se Se Se ese Se ae 


909 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


NOUS WN HO ODNOUS WN Oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 


pe eee 


a3 


vw 
xo 
oe 
ma 


WEWN "O OONOULE wry 


COCOOOCOCOOO SII NNN 


OOOCOCOCCOCCOOOOOCOOOOOOOoOOo 
0 CD 09 CD C9 OD Cd OD OD 0D 0D OD CD OD CD CD. CD OD CD CD CD CD 


0 0O0O0MMO 
Bw SSeue 


= PROPONOPONOPOROPOPOPONONONONOPUNOPUNONOPOPONUNONNND 2 
= 


SOoooooooooooooeoo 
PSP) ee ee 


MO OCONOuLSWwN—o 


N 2 
jal volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0- 
XEPARAM Show executor parameter 12-808- 1382 90:33:38 NAL SREINAL SHOPKM B32, 
ZSBTTL *NMLSSHOEXEPARAM Show executor parameter’ 
GLOBAL ROUTINE NMLSSHOEXEPARAM (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 
'¢ 
' 
i 


+ 
FUNCTIONAL DESCRIPTION: 


This routine adds a parameter from the executor data buffer to the 
output message. 


FORMAL PARAMETERS: 


SEM_LIST Parameter semantic table entry address. 
BUF BSC Gutput message buffer descriptor address. 
MSGSIZE Address of current output message size. 
DATDSC Q10 buffer descriptor address. 

DATPTR Current pointer into Q10 data buffer. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 


. 
J 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
{ 
. 
1 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
lo 
. 


BEGIN 


MAP 
SEM_LIST: REF BBLOCK; 


LOCAL 
SUBRTN; 


SELECTONEU .SEM_LIST CPST$W_DATAID] OF 
ET 
NMASC_PCNO_SAD]: | SUBRTN = NMLSSHORANGE; 


= 
NMASC-PCNO-ALIJ: | SUBRTN = NMLSSHONODE ID; 
FOTNERDI SE: SUBRTN = NMLSSHOPARAM; 


Call the show parameter routine using the executor data descriptor. 
(.SUBRTN) (.SEM_LIST, 


“MSGSIZE, 
NML$GQ_EXEDATDSC 
NMLSGL-EXEDATPTR) ; 
RETURN NML$_STS_SUC 


END; ! End of NMLSSHOEXEPARAM 


0004 00000 -ENTRY NMLSSHOEXEPARAM, Save R2 


7 
| 
ie 
NMLSSHOPRA NML special volatile parameter handling routine 1bes Sep 3: AX-11 Bliss-32 V4.0-74 e 9) 
v04-000 NMLSSHOEXEPARAM Show executor parameter S 14-Sep 1382 13: 30 :30 NML .SRCJNMLSHOPRM.B32; age 43) 
04 0 00002 MOVL SEM List. R2 : 0904 
65 RP O96 MOVZ2WL (R27 : 

O38F 8F : 8 i cMPW RO, Pa + 0907 

51 00000000v 09 9 0019 MOVAB NMLSSHORANGE, SUBRTN : 
OaBS = BF 30 8} 9019 1$ 4 RO, #2741 + 0908 

51 FEO9 cf 9 90 MOVAB NAL SSHONODEID, SUBRTN : 
51 FCCS §CF 9E 000 38 MOV NMLSSHOPARAM SUBRTN : 0909 
900000006 60 OF 09 $ PUSHAB NMLSGL_EXEDATPT + 0914 

*20000006 00 9F PUSHAB NMLS$GO- “ENEDATDSC : 
7E 08 AC 7D 000 MOVG  BUFDSCT -(SP) : 0915 
52 dD 0003C PUSHL R : 0914 

61 05 FB O003E CALLS #5, (SUBRTN) : 
50 01 D0 00041 MOVL #1, RO : 0920 
04 00044 RET ; 0922 


Be Se Se Se Se tee 
Rr me mmDt.a 


| 
; Routine Size: 69 bytes, Routine Base: S$CODE$S + 0310 
| 
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mt HOPRM ecial volatile parameter handling routine 16-Sep 4 00:33: AX-11 Bliss-32 V4.0- Page 30 way 

- ep 

C 


NAL SSRORANGE Show range parameter é- a 198 09:33:38 NML.SRC War shOPYA OSe2% (14) | 
ZSBITL "NMLSSHORANGE Show range ger ra fe 4 


-DATPTR = ,.DATPTR + 4; 
RETURN NML$_STS_PTY; 


| 

if .(..DATPTR)<0,32> EQLU -1 THEN | 
BEGIN | 

| 

| 


RANGE _BEGIN 
RANGE —END._ = 
PTR = NMLST P 
CM_COUNT 


=, (; DATPTR) <0 16>; 
ah .DATPTR)<16,$2>;— 
PRMBUF FER; 


CHSWCHAR_A 
PTR = CHSMOVE’ ny RANGE BEGIN, .PTR); 


If the range beginning = range end, don't include range end. 
if - RANGE BEGIN NEQ .RANGE_END THEN 
CM_COUNT = .CM_COUNT +1; 


; 9% 

: a ¢ . GLOBAL ROUTINE NMLSSHORANGE (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR) = | 
: 939 926 1 
: 940 82 eb i FUNCTIONAL DESCRIPTION: 
: 941 908 1! 
; 94 0929 1 | FORMAL PARAMETERS: 
; 94 0930 1! 
: 944 0931 1! SEM_LIST Parameter semantic table entry address. 
: 945 83 ¢ 1 UFBSC Output message buffer descriptor address. j 
> 946 9 1 i MSGSIZE over ese of current output aesaege size. 
> 947 4 . 7 ATDSC Q10 buffer descriptor address 
3 oy 34 ? : DATPTR Current pointer into Q10 data’ buffer. 
; 950 0937 1 | IMPLICIT OUTPUTS: | 
; 951 0938 1} 

i 93¢ 0939 1 ! ROUTINE VALUE: | 
; 0940 1 | COMPLETION CODES: 

> 954 0941 1! 
3; «955 0942 1! Always returns success (NML$_STS_SUC). 
: 956 0943 1 i | 
z~ 957 0944 1 i- 
; 958 0945 1 

BBB cum ~ 
; 961 0948 > MAP Ts 
: 962 0949 SEM_LIST : REF BBLOCK; 
: 963 0950 i 
; 964 0951 Loc , 
: 965 0926 ie 
; 966 095 “acon “BEGIN: WORD, Wins. 
> 967 0954 RANGE-END: WORD, 
; 968 0955 LENGTA, “a | 
ee oe ~< 

; 971 0958 2 ; 

; We 3444 : i If the address value is -1 then the parameter is not set. 


dD 3 
NAL SSHOPRR NML special volatile parameter handling routine 16-Sep-1984 00: 33:36 AX=11 Ol issn V4 .0-742 Pope aii 


NMLSSHORANGE Show range parameter 14-Sep-1984 NML ..SRCINMLSHOPRM.B32; 1 
; 993 980 Se pg (2, PTR ; 
: 994 3B = CHSMOVE (2, RANGE END, .PTR); : 
; 995 9 ¢ END: $ 
; 996 9 : 
3 444 ane LENGTH = .PTR = NMLST_PRMBUFFER; : 
: Do 3444 Add coded multiple subaddresses field to output message. : 
3 1001 0988 NMLSADDMSGPRM (.BUFDSC ; 
: 100¢ 0989 MSGSIZE . | ; 
; 100 0990 -SEM_LIST f PST ey-paralp | : 
> 1004 0991 -SEM-LIST CPSTSB-DATATY Pe) OR .CM_COUNT, | ; 
; 1005 344 “LENGTH $ 
: 1006 099 NMLS$T_PRMBUFFER) ; ; 
; 1007 0994 : 
; 1008 0995 ! 3 
: 1009 0996 ! Increment past range value in P4 buffer. : 
; 1010 0997 ! 4 
: 1011 0998 -DATPTR = ..DATPTR + 4; : 
; a 099 3 
: 101 1000 2 RETURN NML$_STS_SUC; 3 
3 1014 1001 1 END; ' end of NMLSSHORANGE | : 
001C 00000 ~ENTRY NMLSSHORANGE, Save R2,R3,R4 : oe) : 
54 00000000" 00 9€ 00002 MOVAB NMLST PRMBUFFER, RG : 3 
50 14 BC DO 00069 MOVL SDATPTRE RO ; 0961 3 
FFFFFFFF 86 8F 60 D1 0000D CMPL (RO), #1 : : 
08 12 00014 BNEQ 1 : 5 
14 «BC 04 CO 00016 ADDL2 #4, @DATPTR ; 0963 $ 
50 OC CE OO01A MNEGL #12, RO > 0964 : 
04 0001D RET : 3 
51 14 BC DO OOOIE 1$ MOVL @DATPTR, R1 3 0967 : 
$3 61 BO 90028 MOVW (R1), RANGE BEGIN, : : 
50 61 20 10 EF 0002 EXTZV 4am 32 (R1), ; 0968 3 
52 50 B60 0002A MOVW RO, END 3 § 
51 64 9E 00020 MOVAB NMC ST APRNGUE FER, PTR 3 0969 3 
50 01 00 000 9 MOVL #1, CA_COUNT ; 0970 3 
81 0¢ 90 838 MOVB # CPTAYS 3; 097 3 
81 53 BO 000 MOVW RANGE_BEGIN, (PTR)+ : 097 : 
52 53 (Bl 900 9 CMPW RANGE_BEGIN, RANGE_END 3 0977 3 
98 13 00035C BEQL 2s : 3 
D6 000 INCL CmM_COU NT : 0979 : 
81 9 90 0004 MOVB #2, (PTR)+ ; 0980 3 
81 5 BO 004 MOVW RANGE_END, (PTR)+ ; 0981 : 
52 4 5 0046 2$ BOVAR NMLST~ PRMBUFFER, R2 7 0984 3 
51 é C eg SUBL R2, LENGTH : 3 
1 BB 004C PUSHR #*M<R1,R4> 3; 0992 3 
51 04 AC 00 0004 VL sent List R1 : 0991 : 
§ 03 Al 9A b2 tle 3 3 
7E 50 ¢9 2 BISL Cae coin R2, -(SP) : : 
E 61 3c 0005 MOV2WL (SP) : 0990 : 
7E 08 ac 70 0005D mova aubic, (Sp ) > 0988 : 
00000000G 00 06 FB 00061 CALLS #6, NMC SADDMSGPRM ; 3 


~ 
| 
| 


3 
VO=800 «= NMLSSRORANGE’ "Show Pange parameter "o “OUTine i: ep-198¢ 99:55:38 ENML SRC IWALSHOPAN: 63274 Page 135 


. 
¥ 2) en A al @ 
4 6F RET ; 1001 


; Routine Size: 112 bytes, Routine Base: S$CODE$ + 0355 
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en 
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NAL $s 
NMLSSHOCHANNELS Show chanriels parameter 14-Sep-1984 NML.SRCINMLSHOPRM.B32;1 


ZSBTTL "NMLSSHOCHANNELS Show channels parameter’ 
GLOBAL ROUTINE NMLSSHOCHANNELS (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR) = 


: 
g 


ecial volatile parameter handling routine 16-Sep-19 4 00:33:38 AX-11 Bh fsse3e V4.0-742 Poor as | 


1004 
005 1++ 
! FUNCTIONAL DESCRIPTION: 
Be This routine is called to format the parameter for X25 Protocol DTE 
08 channels in the SHOW NICE response message. It takes the string 
009 returned by the ACP in the P4 buffer and reformats it into NICE in as 


many channel pairs as were returned in the string. 
FORMAL PARAMETERS: 


NOUS WIN—"OOONO 


SEM_LIST Parameter semantic table entry address. 


See ena 


BUF BSC Output message buffer descriptor address. 
MSGSIZE Address of current output message size. 

3 DATDSC Q10 buffer descriptor address. 

; DATPTR Current pointer into Q10 data buffer. 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 


pela jla lala lalelololelolololeleloleleololelolelolo) 


mS 


BEGIN 


P 
SEM_LIST : REF BBLOCK; 


LOCAL 
310. CHAN_LEN, ! Length of channels string in Q10 P4 buffer. 


i] 
If the string Length is 0 then the parameter is not set. 


if .(..DATPTR)<0,16> EQL 0 THEN 
BEGIN 


.DATPTR = ..DATPTR + 2; 
RETURN NML$_STS_PTY; 


OWONAVL WN $9 ODNOAULS WN" OOONAUEWN oO 


be ee ne nn ew ww lolololololeleolelolololololelolololo) 
SF EWWNWWANWNAWIAIRIPIPININININPININDDD 2 2 4 OO OO 


WAWww 


RARRARARAAEEREREREER 


Q10_CHAN_LEN = .(..DATPTR)<0, 16>; 
.DATPTR = ..DATPTR + 2: 
WHILE ,010_CHAN_LEN GTR 0 DO 


BEG 

PTR = NMLS$T_PRMBUFFER; 

i Build a temporary buffer containing a channel pair. Each element 
! in the channel pair consist of a parameter type field (2) an 
' @ word of parameter value. 


CHSWCHAR_A (2, PTR): 
PTR = CHSMOVE (2, ..DATPTR, .PTR); 


SESSFERE 
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ETURN NMLS_STS_SUC; 
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ecial volatile parameter handling routine 1e-se -1984 733: AX-11 Bliss-32 V4.0-74 
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NML.SRCIJNMLSHOPRM.B32; 
-DATPTR = oghrere + 2; 
» PTR); 
PTR = CHSMOVE (2, ..DATPTR, .PTR); 
-DATPTR = ..DATPTR + 2; 
Add coded multiple subaddresses field to output message. 


NMLSADDMSGPRM (.BUFDSC 


-MSGSI 
-SEM_LIST CPSTSW_DATAID) 
.SEM-LIST CPSTSB-DATATYPE) OR 2, 


NALS$T_PRMBUF FER) ; 
! 
: Decrement count of channel pairs left in Q10 buffer. 


Q10_CHAN_LEN = .QIO_CHAN_LEN - 4; 
END; 


! end of NMLSSHOCHANNELS 


007¢ 00000 .ENTRY NMLSSHOCHANNELS, Save R2,R3,R4,R5,R6 
56 00000000' 00 9€ 00002 MOVAB NML$T_PRMBUFFER. R6 
52 14 AC dO 00009 MOVL DATPTR, R2 
00 B2 B85 0000D TSTW  a0(R2) 
07 1 00010 BNEQ 1$ 
62 02 C 90012 ADDL2 #2, (R2) 
50 OC CE 9001 MNEGL #12, RO 
04 0018 RET 
55 00 82 3C 00019 1s: MOVZWL @0(R2), QI10_CHAN_LEN 
62 02 CO 9001p ADDIL.2 #2, (RO) 
54 04 AC DO 00020 MOVL  SEM_LIST, R4 
33 DS 00024 2S: TSTL  QIO7CHAN.LEN 
7 15 00 6 BLEG © 3$ 
53 ib 43 0028 MOVAB NMLS$T_PRMBUFFER, PTR 
83 02 90 00028 MOVB oF (BTR) + 
83 00 B82 B80 000 Vw @OC(R2), (PTR)+ 
$¢ 8 0 00 ADDL2 #2, (RO) 
0 v8 #2, (PTR)+ 
83 00 8B 80 900 Vw  a@0(R2), (PTR)+ 
62 9 CG 0003¢ ADDL2 , (Re) 
6 DD 0003F PUSHL R6 
06 pp 0041 PUSHL #6 
50 03 AG OA 0043 MOVZBL 3(R4), R 
50 02 C9 0004 BISL 2, RO, -(S 
7E 4 BC 3C 00048 MOVZ2WL @SEM LIST, -(SP) 
7 8 AC 7D 0004F va uFDSC, =< 
000000006 9 06 F 0055 CALLS #6, NMLSADDMSGPRM 
4 ¢ A SUBL2 #4. QI0_CHAN_LEN 
C5 11 0005p BRB 
50 1 DO O005F 3s: MOVL #1, RO 
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NAL ppec tel volatile parameter handling ro 
NMLSSHOPWSET Show password set indicatio 
| 

ZSBITL “"NMLSSHOPWSET Show password set indication’ 
SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR) = 


GLOBAL ROUTINE NMLSSHOPWSET ( 


144 
! FUNCTIONAL DESCRIPTION: 

his routine is called while processing a SHOW X25-SERVER DESTINATION 
command ~ after the PSI ACP returns the destination's parameters. 

If the password is set, it puts a password value of zero in the 
NICE respenee message. If the password is not set, it does not 
add anything to the response message. 


$3 


020000000900 0D 0000 


BREN LSSSISALAW= 


FORMAL PARAMETERS: 


felelelejlolelelelolelqelq! 


ooonono 


SEM_LIST Parameter semantic table entry address. 
BUF BSC Output message buffer descriptor address. 
MSGSIZE Address of current output message size. 
DATDSC Q10 buffer descriptor address. 

DATPTR Current pointer into Q10 data buffer. 


} 
| 
| 
| 
| 
IMPLICIT OUTPUTS: | 
ROUTINE VALUE: 

} 

| 

| 


ooo 
oo 


COMPLETION CODES: 
Always returns success (NML$_STS_SUC). 


fale jlololol =] 


BEGIN 


P 
SEM_LIST : REF BBLOCK; 


LOCAL 
PASSWORD_LEN; 


PASSWORD _LEN = .(..DATPTR)<0,16>; 
IF .PASSQORD_LEN GTR 0 THEN 

BEGIN 
i Add password to message with a value of 0. This indicates simply that 
the password is set, without actually returning the password. 
NMLSADDMSGPRM (.BUFDSC 


“MSG 
“SEM_LIST CPSTSW_DATAID) 
-SEM-LIST CPSTSB-DATATYPE), 


i 
UPLIT (0)); 
_ END: 


: Increment past the password in the buffer. 
.DATPTR = ..DATPTR + .PASSWORD_LEN + 2; 


RETURN NML$_STS_SUC; 
END; ! end of NMLSSHOPWSET 
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NMLSSHOPRM NML special volatile parameter handling routine 18-5 -1984 733: AX-11 Bliss-32 V4.0-74 P 7 
yo%~000 OUSEROPUSET © Show possword cet edie e tiene ieakeen tone 858b se ee eet saeke Oss, a0 48) | 
i 


-PSECT $PLITS,NOWRT ,NOEXE,2 
00000000 00008 P.AAB: .LONG 0 : 


-PSECT S$CODES,NOWRT,2 


001¢ 000 .ENTRY NMLSSHOPWSET, Save R2,R3,R4 : 108 

54 14 ac Do ited MOVL  DATPTR, R4 : 1995 
3g 64 pO 9006 MOVL (R4), R2 : 
5 62 g 000 MOVZWL (R2), PASSWORD_LEN : 

1— 15 0000¢ BLEQ =s:*1$ : 1118 

00000000" 00 9F O000E PUSHAB P.AAB + 1129 

01 DD 00014 PUSHL #1 + 1126 

50 04 AC DO 00016 VL sen LIST, RO : 1127 
7E 03 AO QA poota MOVZBL 3(RO), -(SP) : 

7E 60 3¢ OO1E MOVZWL (RO), =(SP) : 1126 

7E 08 AC 7D 00021 BUFDSC, =(SP) + 1124 
000000006 00 0 FB 00025 CALLS #6, NMLSADDMSGPRM : 

64 02 A342 9E 0002C 1$: MOVAB 2 (PASSWORD_LEN)CR2], (R4) + 1134 

50 01 oO 00031 MOVL #1, RO : 1136 

04 00034 RET + 1137 


; Routine Size: 53 bytes, Routine Base: S$CODES + 0428 


Kk 3 
VOL=000” —sALSSROEQUNTERS, Show entity countersy  "* ]e78ep-18pe 99:80:28 ENML-SREUNAL SHOPRN: 03074 Page 95 


vo l 
ER $ 
ZSBTTL "NMLSSHOCOUNTERS Show ens ity counters’ 
AL T SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine puts counter parameters into the response message. 
Since NETACP formats the counters in NICE yormet. and returns them 
n 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 


' 

' 

; as a string, this simply involves moving the str j into the 
response message with no parameter type or string length. 
! FORMAL PARAMETERS: 

i SEM_LIST Parameter semantic table entry address. 

; UF Output message buffer descriptor address. 
: MSGSIZE Address of current output message size. 

; DATDSC Q10 buffer descriptor address. 

DATPTR Current pointer into Q10 data buffer. 
IMPLICIT OUTPUTS: 

Message buffer contains counter parameters. 

: 

' 

t 

' 

1 


SEM_LIST : REF BLOCK C, BYTE]; 


DAVIN 
AO LSSSVSEALAV LS SSVSAR ANA SSSISALERISSSGSEAK 


SSR ES SSNS ARUN SSoo wan WN 9 CONOUE WN" COONOUS W000 


.DATPTR = ..DATPTR + .LEN; 
RETURN NML$_STS_SUC | 
END; ! End of NMLSSHOCOUNTERS 


1 3 
1 
1 LEN = .(..DATPTR)<0,16>; 

Hb ,DATPTR = ..DATPTR + 2; 

H 4 If the Length is zero then no counters were returned. 
197 if .LEN EQL 0 

198 THEN 

ha RETURN NML$_STS_SUC; 
$04 NMLSADDMSGCOU ( .BUFDSC 

0¢ “MSGSIZE, 

0 LEN 

04 : DATPTR); 
05 

09 
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NMLSSHOPRM ecial volatile parameter handling routine 15- $ep-1984 00:33: AX-11 Bliss-32 V4.0-742 Pa 9 
yO%~000 Nate Ot OUNTERS Show entity counters” 12-8 08- 1 oh 99:33:38 NML.SRCINMLSHOPRM.B32;1 EE 


0004 000 .ENTRY NMLSSHOCOUNTERS, Save R2 :11 
59 146 BC dO 09 OVL  @DATPTR, RO : 11 
¢ 0 é MOVZ2WL (RO), LEN : 
14 «BC C 0 DL2 #2, @DATPTR : 11 
D 9000 TSTL LEN : 11 
14 13 0000F BEQL ~=sésS$ : 
14 BS Dd 0o1 PUSHL  a@DATPTR : 11 
D 00014 PUSHL LEN : 11 
re 08 AC 7D 00016 MOVO  BUFDSC, =(SP) : 11 
ooeete 2 Os ER HRSE GLS fy, tabsepsoce 9 
50 01 00 60055 1$: MOVL r + 1192 
04 00028 RET + 1194 


; Routine Size: 41 bytes, Routine Base: S$CODE$ + 045D 
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NML special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-74 P 40 
WML SSHOOWNER trenstete Data Link Mapping bit t 14-Sep-19 4 99:25:36 ENML SRE NMLSHOPRM.B32; 290 18) 


ZSBITL "NMLSSHOOWNER Translate Data Link Mapping bit to 0 


#3 
Ee 


wner' 
GLOBAL ROUTINE NMLSSHOOWNER (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, DATPTR)= 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


This routine is called when doing a SHOW CIRC CHAR. It Looks 

at the bit value returned by the ACP for DLM (Data Link Mapping), 
and, if it’s set, returns an OWNER parameter value for the 
executor node to NCP. The executor node is the only value 
currently allowed for OWNER. 


a 


SEM_LIST Parameter semantic table entry address. 
UFBSC Output message buffer descriptor address. 

MSGSIZE Address of current output message size. 
DATDSC Q10 buffer descriptor address. 

DATPTR Current pointer into Q10 data buffer. 


WN" OOONOVEWN "OOONOULS wry 


ee ae aa napa 


ROUTINE VALUE: 
COMPLETION CODES: 


FORMAL PARAMETERS: 
Always returns success (NML$_STS_SUC). 


BIND EXECUTOR = UPLIT BYTE 
$M_PTY_COD+1, NMASC_ENT_NOD, ! Entity type = node 
2, WORB (OJ); ' Node address = 0 (executor) 


COCCCO DOO 
SSONK PUI OS OONO NEW BMOD@D NER Ro Doe ee 
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;DATPTR = ..DATPTR + 4; 


i If the address value is -1 then the owner is not set. 
If’ the bit value is clear, then there is no owner specified. 


if .(..DATPTR = 4)<0,32> EgLu -1 OR 
NOT (.(..DATPTR = 4)<0,32>) 
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THEN 
RETURN NML$_STS_PTY; 


DAA 


MOMuMofongny 


NMLSADDMSGPRM (.BUFDSC 


.MSG 
“SEM_LIST CPSTSW_DATAID) 
SEM“LIST CPSTSB-DATATYPE) OR 2, 


EXECUTOR); 


BEEP EEE & EWI 
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SEM_LIST : REF BLOCK C, BYTE); 
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i 
Add coded multiple executor node id field to output message. 
| 


Nn 3 
SSHOPRM NML_ special volatile parameter handling routine 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-74 
yo4-000 NMLSSHOOWNER Translate Data Link Mapping bit t 12-86-1382 99:39:38 ENML «SRE NAL SHOPRMb3004 


3 1269 1 RETURN NML$_STS_SUC 
; 1398 138 é END; psig ! End of NMLSSHOOWNER 
-PSECT SPLITS$,NOWRT,NOEXE,2 
02 00 81 OQO00C P.AAC: .BYTE <-127, 0, 2 
0000 0000F eWORD 0 
EXECUTOR= P.AAC 


-PSECT SCODES,NOWRT,2 


0009 00000 ENTRY NMLSSHOOWNER, Save nothing 
14 «BC 04 CO 00002 ADDL2 #4, @DATPTR 
50 14 BC DO 00006 MOVL  @DATPTR, RO 
FFFFFFFF © 8 FC AO 01 OOO0A CMPL -4(RO), #1 
04 13 00012 BEQL 
04 FC AO EB 00014 BLBS -4(RO), 2$ 
50 OC CE 00018 1$: MNEGL #12, RO 
04 00018 RET 
07000000" 00 9F 0001C 2s: PUSHAB EXECUTOR 
05 Dd 00022 PUSHL @# 
50 04 AC 00 00024 MOVL sem LIST, RO 
51 03 Ad 9A 00028 MOVZBL (RO), Ri 
7E 51 08 c9 0002¢ BISL3 #2, RI, -(SP) 
7E 60 3C 00030 MOVZWL (RO), -(SP) 
7E 08 AC 7D 00033 MOVO BUFDSC, -(SP 
000000006 00 06 FB 00037 CALLS #6, NMLSADDMSGPRM 
50 01 pO 0003E MOVL #1. RO 
04 00041 RET 


; Routine Size: 66 bytes, Routine Bese: S$CODES + 0486 
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ecial volatile parameter wy routine 16-5 
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PSECT SUMMARY 
Bytes 


AX-11 Bliss-32 V4.0-74 
NML.SRCINMLSHOPRM.B32; 


4 oft off off off 28% off of ode 28 


23 NOVEC, WRT, RD ,NOEXE,NOSHR, 
NOEXE ,NOSHR 


NOVEC,NOWRT, RD 
1224 NOVEC,NOWRT, RD , 


Library Statistics 


apnea’ === Symbols 
Total Loaded 


79 


341 $¢ 

87 1 
3 
0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:NMLSHOPRM/OBJ=OBJ$:NMLSHOPRM MSRC$:NMLSHOPRM/UPDATE=(ENHS : NMLSHOPRM) 


1224 sea 273 data bytes 


; Lines/CPU Mi n: 
: Lexemes/CPU-Min: 


tion Complete 


PMENT CORPORATION 
AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


334 


es 


IPMENT CORPOR 


an? Vay7une ¥a-¢ L AND PROPRIETARY 


DI 
VAX/VMS_V4.0 CO 


